home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SCB 4.0.cpt / Script Cat Burglar 4.0 / card_7125.txt < prev    next >
Text File  |  1988-03-21  |  2KB  |  83 lines
  1. -- card: 7125 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2227
  5. -- name: on IndexButton
  6.  
  7.  
  8. -- part contents for background part 15
  9. ----- text -----
  10. This stack was designed by     Philip A. Mohr, Jr.    4405 N. Rosemead    Rosemead, CA 91770
  11.  
  12. -- part contents for background part 67
  13. ----- text -----
  14. Hide Notes
  15.  
  16. -- part contents for background part 68
  17. ----- text -----
  18. 7125
  19.  
  20. -- part contents for background part 73
  21. ----- text -----
  22. Before I can do that, you   need to give the script   a name.  Sorry.  Try again.
  23.  
  24. -- part contents for background part 2
  25. ----- text -----
  26. on IndexButton
  27.  
  28. -- part contents for background part 3
  29. ----- text -----
  30. This Stack
  31.  
  32. -- part contents for background part 13
  33. ----- text -----
  34. Stack/Card
  35.  
  36. -- part contents for background part 58
  37. ----- text -----
  38. On indexButton
  39.   Global ScriptName, ScriptSource, ScriptType
  40.   
  41.   set name of this card to ScriptName -- Insurance
  42.   set lockScreen to true
  43.   set cursor to 4
  44.   go last card of background "Index Cards"
  45.   Get background field "Index Page"
  46.   Put "Index " & it into PageNo
  47.   get the number of card buttons
  48.   If it >= 40 then                -- New Index Card
  49.     put script of this card into IndexScript
  50.     doMenu "New Card"
  51.     Get background field "Index Page"
  52.     Put "Index " & it into PageNo
  53.     set name of this card to PageNo
  54.     put IndexScript into script of card PageNo  -- to here
  55.   end if
  56.   
  57.   doMenu new button
  58.   get ScriptName
  59.   set name of button "New Button" to it
  60.   set autoHilite of button it to true
  61.   set the rect of button it to 172,135,340,155
  62.   set style of button it to radioButton
  63.   
  64.   put "on mouseUp" into line 1 of buttonScript -- Goodman, 557 + 603
  65.   put "get short name of the target" into line 2 of buttonScript
  66.   put "go to card it" into line 3 of buttonScript
  67.   Put "set hilite of card button it of card " & quote & PageNo & quote & " to false" into line 4 of buttonScript
  68.   put "end mouseUp" into line 5 of buttonScript
  69.   
  70.   set script of card button it to buttonScript
  71.   
  72.   show background field "Move Advisor"
  73. end indexButton
  74.  
  75.  
  76.  
  77. -- part contents for background part 14
  78. ----- text -----
  79. earlier version
  80. In the Collection Cards background script, called by Add Script and Add to Script, puts new button on index page and inserts script that links it to Collection Card
  81.  
  82.  
  83.